CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/gmgl.dir/Internal_2_glScript.ls

Text File | 2001-09-04 | 3.3 KB | 143 lines

property kidSprite, firstFaceSprite, illLevel, dotSprite, happiness, faceList, faceSpriteList, smallFaceSpriteList, smallFaceBGSpriteList, clickTimer, virgin, main
global sessionObject, sndObject

on new me
  main = "main"
  faceList = sessionObject.beenTo[1]
  faceSpriteList = []
  smallFaceSpriteList = []
  smallFaceBGSpriteList = []
  happiness = 1
  illLevel = 0
  clickTimer = the ticks
  virgin = 1
  return me
end

on deleteSmallOne me, pSprite
  v = smallFaceBGSpriteList.getPos(pSprite)
  faceList.deleteAt(v)
  reMove(me)
  clearAllSmallSprites(me)
  if faceList = [] then
    go(main)
  else
    organizeSavePage(me)
  end if
end

on saveFace me
  vList = []
  repeat with n = 1 to faceSpriteList.count
    vList[n] = faceSpriteList[n].member.name
  end repeat
  hit = 0
  repeat with n = 1 to faceList.count
    if vList = faceList[n] then
      hit = 1
      exit repeat
    end if
  end repeat
  if hit = 0 then
    if faceList.count < 28 then
      faceList[faceList.count + 1] = vList
    end if
  end if
  go("save")
  organizeSavePage(me)
  saveFaceToDisk()
end

on organizeSavePage me
  repeat with n = 1 to faceList.count
    smallFaceBGSpriteList[n].member = member("FaceBG", 1)
    SpriteVal = 0
    repeat with b = 1 to 9
      sprite(smallFaceSpriteList[n + SpriteVal]).member = member(faceList[n][b] & "small", 1)
      SpriteVal = SpriteVal + 28
    end repeat
  end repeat
  repeat with n = 1 to smallFaceBGSpriteList.count
    smallFaceBGSpriteList[n].moveUp()
  end repeat
  repeat with n = 1 to smallFaceSpriteList.count
    sprite(smallFaceSpriteList[n]).moveUp()
  end repeat
end

on clearAllSmallSprites me
  repeat with n = 1 to smallFaceSpriteList.count
    sprite(smallFaceSpriteList[n]).member = member("emptyFace", 1)
  end repeat
  repeat with n = 1 to smallFaceBGSpriteList.count
    smallFaceBGSpriteList[n].member = member("emptyFace", 1)
  end repeat
end

on goBack me, pSprite
  v = smallFaceBGSpriteList.getPos(pSprite)
  repeat with n = 1 to faceList[v].count
    faceSpriteList[n].member = member(faceList[v][n], 1)
  end repeat
  reMove(me)
end

on reMove me
  repeat with n = 1 to smallFaceBGSpriteList.count
    smallFaceBGSpriteList[n].moveDown()
  end repeat
  repeat with n = 1 to smallFaceSpriteList.count
    sprite(smallFaceSpriteList[n]).moveDown()
  end repeat
end

on reportFaceSprite me, pSprite
  faceSpriteList[faceSpriteList.count + 1] = pSprite
end

on reportSmallFaceSprite me, pSpriteNum
  if smallFaceSpriteList.count < 252 then
    smallFaceSpriteList[smallFaceSpriteList.count + 1] = pSpriteNum
  end if
end

on reportFaceBG me, pSprite
  if smallFaceBGSpriteList.count < 28 then
    smallFaceBGSpriteList[smallFaceBGSpriteList.count + 1] = pSprite
  end if
end

on reportDotSprite me, pSprite
  dotSprite = sprite(pSprite)
end

on reportKlick me
  if illLevel < 40 then
    illLevel = illLevel + 1
    happiness = (illLevel + 7) / 5
    if happiness > 8 then
      happiness = 8
    end if
    setDots(me)
  end if
end

on setDots me
  dotSprite.member = member("p" & string(illLevel), 1)
  if illLevel = 20 then
    sndObject.respondSnd(1, 5, 1, 0, 1)
  else
    if illLevel = 34 then
      sndObject.respondSnd(1, 3, 1, 0, 1)
    else
      if illLevel = 40 then
        kidSprite.halleluja()
      else
        virgin = 0
        clickTimer = the ticks
        sndObject.respondSnd(3, 2, 1, 1, 1)
      end if
    end if
  end if
end